Proceso sin_titulo
	//Andres Calderon Cardenas
	//Fecha: 19-octubre-2012
	//Este pseudocodigo resuelve el area de un Cono
	Escribir ("Escribe el valor del radio: ");
	Leer radio;
	Escribir ("Escribe el valor de la altura: ");
	Leer altura;
	areac<-(3.1416*(radio*radio)*altura)/3;
	Escribir ("El Area del Cono es: "),areac;
FinProceso
